J0[Phi_]:=Puncture[3,4, {
Phi~Up~{1,3,{2,4}},
(-Phi)~Up~{3,2,4},
RR[3,2],
Phi~Up~{2,3,4},
(-Phi)~Up~{1,2,{3,4}}
}];
ToDegree[1, J0[Phi[Vb]]]

ToDegree[2, J0[Phi[Vb]]]

J1[Phi_] := PCollect[NonCommutativeMultiply @@ J0[Phi]];
ToDegree[2, J1[Phi[Vb]]]

ToDegree[4, J0[Phi[Vb]]]

ToDegree[4, J1[Phi[Vb]]]

J2[Phi_] := J1[Phi] /. PCollect[ar[i_,j_] :> ar[i, j-2]];
ToDegree[1, J2[Phi[Vb]]]

V2=ToDegree[2, J2[Phi[Vb]]]

ToDegree[2, {R4Eqn[V2], TwistEqn[V2]}]

ToDegree[2, {R4Eqn[V2~Up~{2,1}], TwistEqn[V2~Up~{2,1}]}]

PCollect[ToDegree[1, Vb]]

PCollect[ToDegree[2, Vb]]

ToDegree[4, J2[Phi[Vb]]]

PCollect[ToDegree[4, Vb]]